home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_325.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  1.0 KB  |  37 lines
  1. on mouseUp
  2.   put "93" into field "whmodnum"
  3.   put EMPTY into field "bemodnum"
  4.   put EMPTY into field "comodnum"
  5.   put EMPTY into field "whexmodnum"
  6.   put EMPTY into field "bearingoption"
  7.   if chars(field "mtmodnum", 2, 2) contains "9" then
  8.     if field "diamodnum" contains "8" then
  9.       put "99." into field "mtmodnum"
  10.     else
  11.       put "09." into field "mtmodnum"
  12.     end if
  13.   end if
  14.   if chars(field "mtmodnum", 2, 2) contains "8" then
  15.     if field "diamodnum" contains "8" then
  16.       put "98." into field "mtmodnum"
  17.     else
  18.       put "08." into field "mtmodnum"
  19.     end if
  20.   end if
  21.   if chars(field "mtmodnum", 2, 2) contains "9" then
  22.     if field "maincasterphoto" contains "impak" then
  23.       put "79." into field "mtmodnum"
  24.     end if
  25.   end if
  26.   if chars(field "mtmodnum", 2, 2) contains "8" then
  27.     if field "diamodnum" contains "8" then
  28.       if field "maincasterphoto" contains "impak" then
  29.         put "78." into field "mtmodnum"
  30.       end if
  31.     end if
  32.   end if
  33.   puppetSound("mainsnd")
  34.   puppetTransition(47, 1, 8)
  35.   play frame "4bbearingc"
  36. end
  37.